home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 January / CHIP Turkiye Ocak 1997.iso / program / sound / amod30 / 3d.inc next >
Text File  |  1995-08-11  |  2KB  |  180 lines
  1. cubep: array[0..8,0..3] of integer =
  2. ((8,200,0,0),
  3. (-40,-40,-40,0),
  4. (40,-40,-40,0),
  5. (40,40,-40,0),
  6. (-40,40,-40,0),
  7. (-40,-40,40,0),
  8. (40,-40,40,0),
  9. (40,40,40,0),
  10. (-40,40,40,0));
  11. cubel: array[0..12,0..1] of integer =
  12. ((12,0),
  13. (1,2),
  14. (2,3),
  15. (3,4),
  16. (4,1),
  17. (5,6),
  18. (6,7),
  19. (7,8),
  20. (8,5),
  21. (1,5),
  22. (2,6),
  23. (3,7),
  24. (4,8));
  25.  
  26. pyramidp : array[0..5,0..3] of integer =
  27. ((5,180,0,0),
  28. (-40,-40,-30,0),
  29. (40,-40,-30,0),
  30. (40,40,-30,0),
  31. (-40,40,-30,0),
  32. (0,0,60,0));
  33.  
  34. pyramidl : array[0..8,0..1] of integer =
  35. ((8,0),
  36. (1,2),
  37. (2,3),
  38. (3,4),
  39. (4,1),
  40. (1,5),
  41. (2,5),
  42. (3,5),
  43. (4,5));
  44.  
  45. adnmodp : array[0..34,0..3] of integer =
  46. ((34,270,0,0),
  47. (-40,0,0,0),
  48. (-20,0,0,0),
  49. (-20,-60,0,0),
  50. (0,0,0,0),
  51. (0,-60,0,0),
  52. (20,-20,0,0),
  53. (20,-40,0,0),
  54. (40,0,0,0),
  55. (40,-60,0,0),
  56. (80,0,0,0),
  57. (80,-60,0,0),
  58. (-80,0,0,0),
  59. (-40,-60,0,0),
  60. (-40,-20,0,0),
  61. (-66,-20,0,0),
  62. (-80,20,0,0),
  63. (-80,80,0,0),
  64. (-60,40,0,0),
  65. (-40,20,0,0),
  66. (-40,80,0,0),
  67. (-20,26,0,0),
  68. (-14,20,0,0),
  69. (14,20,0,0),
  70. (20,26,0,0),
  71. (20,74,0,0),
  72. (14,80,0,0),
  73. (-14,80,0,0),
  74. (-20,74,0,0),
  75. (40,20,0,0),
  76. (40,80,0,0),
  77. (60,20,0,0),
  78. (60,80,0,0),
  79. (80,60,0,0),
  80. (80,40,0,0));
  81. adnmodl : array[0..32,0..1] of integer =
  82. ((32,0),
  83. (2,3),
  84. (3,5),
  85. (5,7),
  86. (7,6),
  87. (6,4),
  88. (4,2),
  89. (11,10),
  90. (10,9),
  91. (9,8),
  92. (1,14),
  93. (14,13),
  94. (14,15),
  95. (13,15),
  96. (15,12),
  97. (17,16),
  98. (16,18),
  99. (18,19),
  100. (19,20),
  101. (22,23),
  102. (23,24),
  103. (24,25),
  104. (25,26),
  105. (26,27),
  106. (27,28),
  107. (28,21),
  108. (21,22),
  109. (29,31),
  110. (31,34),
  111. (34,33),
  112. (33,32),
  113. (32,30),
  114. (30,29));
  115.  
  116. asm95p : array[0..31,0..3] of integer =
  117. ((31,250,0,0),
  118. (-72,-8,0,0),
  119. (-26,-76,0,0),
  120. (-26,-16,0,0),
  121. (-26,-36,0,0),
  122. (-52,-36,0,0),
  123. (6,-8,0,0),
  124. (14,-16,0,0),
  125. (14,-36,0,0),
  126. (8,-42,0,0),
  127. (-8,-42,0,0),
  128. (-14,-50,0,0),
  129. (-14,-70,0,0),
  130. (-6,-76,0,0),
  131. (24,-8,0,0),
  132. (24,-66,0,0),
  133. (48,-48,0,0),
  134. (74,-66,0,0),
  135. (74,-8,0,0),
  136. (74,-76,0,0),
  137. (46,4,0,0),
  138. (14,4,0,0),
  139. (20,30,0,0),
  140. (50,30,0,0),
  141. (56,56,0,0),
  142. (26,56,0,0),
  143. (0,4,0,0),
  144. (12,56,0,0),
  145. (6,30,0,0),
  146. (-26,30,0,0),
  147. (-32,4,0,0),
  148. (-20,56,0,0));
  149. asm95l : array[0..29,0..1] of integer =
  150. ((29,0),
  151. (1,5),
  152. (5,2),
  153. (2,4),
  154. (4,3),
  155. (4,5),
  156. (1,6),
  157. (6,7),
  158. (7,8),
  159. (8,9),
  160. (9,10),
  161. (10,11),
  162. (11,12),
  163. (12,13),
  164. (15,16),
  165. (16,17),
  166. (14,15),
  167. (17,18),
  168. (13,19),
  169. (20,21),
  170. (21,22),
  171. (22,23),
  172. (23,24),
  173. (24,25),
  174. (26,28),
  175. (28,27),
  176. (28,29),
  177. (29,30),
  178. (30,26),
  179. (27,31));
  180.